.onAttach <- function(libname, pkgname)  {
    options(stringsAsFactors = FALSE)
}
